﻿Module Module1
    Public Sub FadeIn()
        Dim i As Double
        For i = 0.0 To 1.0 Step 0.1
            SplashScreen.Opacity = i
            SplashScreen.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub
End Module
